home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / objassoc.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  3KB  |  134 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    ObjectAssociation_c
  18. #define    ivType    ObjectAssociation_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    ObjectAssociation_c;
  23.  
  24.  
  25. #line 26 "objassoc.c"
  26. typedef struct  _ObjectAssociation_iv_t  {
  27.     object iValue;
  28. }    ObjectAssociation_iv_t;
  29.  
  30.  
  31.  
  32. #line 20 "objassoc.d"
  33. cmeth objrtn ObjectAssociation_cm_gNewWithObjObj(object self, object key, object val)
  34. { 
  35.     object assoc; 
  36.     ivType *iv; 
  37.  
  38.     ChkArgNul(key, 2); 
  39.     ChkArgNul(val, 3); 
  40.     assoc = oSuper(ObjectAssociation_c, gNewWithObj, self)(self, key); 
  41.     iv = ivPtr(assoc); 
  42.     iv->iValue = val; 
  43.     return assoc; 
  44. } 
  45.  
  46. imeth objrtn ObjectAssociation_im_gDeepCopy(object self)
  47. { ObjectAssociation_iv_t *iv = GetIVs(ObjectAssociation, self);
  48.     object nobj; 
  49.  
  50.     nobj = oSuper(ObjectAssociation_c, gDeepCopy, self)(self); 
  51.     ivPtr(nobj)->iValue = iv->iValue ? gDeepCopy(iv->iValue) : NULL; 
  52.     return nobj; 
  53. } 
  54.  
  55. imeth objrtn ObjectAssociation_im_gValue(object self)
  56. { ObjectAssociation_iv_t *iv = GetIVs(ObjectAssociation, self);
  57.     return iv->iValue; 
  58. } 
  59.  
  60. imeth objrtn ObjectAssociation_im_gChangeValue(object self, object value)
  61. { ObjectAssociation_iv_t *iv = GetIVs(ObjectAssociation, self);
  62.     object ret; 
  63.     ChkArgNul(value, 2); 
  64.     ret = iv->iValue; 
  65.     iv->iValue = value; 
  66.     return ret; 
  67. } 
  68.  
  69. imeth objrtn ObjectAssociation_im_gDeepDispose(object self)
  70. { ObjectAssociation_iv_t *iv = GetIVs(ObjectAssociation, self);
  71.     if (iv->iValue) 
  72.         gDeepDispose(iv->iValue); 
  73.     return oSuper(ObjectAssociation_c, gDeepDispose, self)(self); 
  74. } 
  75.  
  76. imeth objrtn ObjectAssociation_im_gStringRepValue(object self)
  77. { ObjectAssociation_iv_t *iv = GetIVs(ObjectAssociation, self);
  78.     object s, k, v; 
  79.  
  80.     k = gKey(self); 
  81.     k = k ? gStringRepValue(k) : gNewWithStr(String,"(null)"); 
  82.     v = iv->iValue ? gStringRepValue(iv->iValue) : gNewWithStr(String,"(null)"); 
  83.     s = vBuild(String, "( ", k, ", ", v, " )", NULL); 
  84.     gDispose(k); 
  85.     gDispose(v); 
  86.     return s; 
  87. } 
  88.  
  89.  
  90. #line 91 "objassoc.c"
  91.  
  92. objrtn    ObjectAssociation_initialize(void)
  93. {
  94.     static  CRITICALSECTION  cs;
  95.     static  int volatile once = 0;
  96.  
  97.     ENTERCRITICALSECTION(_CI_CS_);
  98.     if (!once) {
  99.         INITIALIZECRITICALSECTION(cs);
  100.         once = 1;
  101.     }
  102.     LEAVECRITICALSECTION(_CI_CS_);
  103.  
  104.     ENTERCRITICALSECTION(cs);
  105.  
  106.     if (ObjectAssociation_c) {
  107.         LEAVECRITICALSECTION(cs);
  108.         return ObjectAssociation_c;
  109.     }
  110.     INHIBIT_THREADER;
  111.     LookupKey_initialize();
  112.     if (ObjectAssociation_c)  {
  113.         ENABLE_THREADER;
  114.         LEAVECRITICALSECTION(cs);
  115.         return ObjectAssociation_c;
  116.     }
  117.     ObjectAssociation_c = gNewClass(Class, "ObjectAssociation", sizeof(ObjectAssociation_iv_t), 0, LookupKey, END);
  118.     cMethodFor(ObjectAssociation, gNewWithObjObj, ObjectAssociation_cm_gNewWithObjObj);
  119.     iMethodFor(ObjectAssociation, gValue, ObjectAssociation_im_gValue);
  120.     iMethodFor(ObjectAssociation, gStringRepValue, ObjectAssociation_im_gStringRepValue);
  121.     iMethodFor(ObjectAssociation, gChangeValue, ObjectAssociation_im_gChangeValue);
  122.     iMethodFor(ObjectAssociation, gDeepDispose, ObjectAssociation_im_gDeepDispose);
  123.     iMethodFor(ObjectAssociation, gDeepCopy, ObjectAssociation_im_gDeepCopy);
  124.  
  125.     ENABLE_THREADER;
  126.  
  127.     LEAVECRITICALSECTION(cs);
  128.  
  129.     return ObjectAssociation_c;
  130. }
  131.  
  132.  
  133.  
  134.